/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / disass.elc.z / disass.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 4d 6f 6e 20 | 41 70 72 20 20 38 20 31 | on Mon |Apr  8 1|
|00000040| 31 3a 33 36 3a 35 35 20 | 31 39 39 36 0a 3b 3b 3b |1:36:55 |1996.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|00000070| 70 2f 64 69 73 61 73 73 | 2e 65 6c 0a 3b 3b 3b 20 |p/disass|.el.;;; |
|00000080| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 31 39 |emacs ve|rsion 19|
|00000090| 2e 33 30 2e 39 36 2e 32 | 2e 0a 3b 3b 3b 20 62 79 |.30.96.2|..;;; by|
|000000a0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 46 |tecomp v|ersion F|
|000000b0| 53 46 20 32 2e 31 30 0a | 3b 3b 3b 20 6f 70 74 69 |SF 2.10.|;;; opti|
|000000c0| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|000000d0| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|000000e0| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|000000f0| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000100| 20 45 6d 61 63 73 20 31 | 38 2e 0a 0a 28 69 66 20 | Emacs 1|8...(if |
|00000110| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000120| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000130| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000140| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|00000150| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|00000160| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|00000170| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|00000180| 6f 6e 20 22 31 39 2e 32 | 39 22 29 29 29 0a 20 20 |on "19.2|9"))).  |
|00000190| 20 20 28 65 72 72 6f 72 | 20 22 60 64 69 73 61 73 |  (error| "`disas|
|000001a0| 73 2e 65 6c 27 20 77 61 | 73 20 63 6f 6d 70 69 6c |s.el' wa|s compil|
|000001b0| 65 64 20 66 6f 72 20 45 | 6d 61 63 73 20 31 39 2e |ed for E|macs 19.|
|000001c0| 32 39 20 6f 72 20 6c 61 | 74 65 72 22 29 29 0a 0a |29 or la|ter"))..|
|000001d0| 0a 28 72 65 71 75 69 72 | 65 20 28 71 75 6f 74 65 |.(requir|e (quote|
|000001e0| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 29 20 22 | byte-co|mpile) "|
|000001f0| 62 79 74 65 63 6f 6d 70 | 22 29 0a 23 40 33 20 2a |bytecomp|").#@3 *|
|00000200| 1f 0a 28 64 65 66 76 61 | 72 20 64 69 73 61 73 73 |..(defva|r disass|
|00000210| 65 6d 62 6c 65 2d 63 6f | 6c 75 6d 6e 2d 31 2d 69 |emble-co|lumn-1-i|
|00000220| 6e 64 65 6e 74 20 38 20 | 28 23 24 20 2e 20 2d 35 |ndent 8 |(#$ . -5|
|00000230| 31 31 29 29 0a 23 40 33 | 20 2a 1f 0a 28 64 65 66 |11)).#@3| *..(def|
|00000240| 76 61 72 20 64 69 73 61 | 73 73 65 6d 62 6c 65 2d |var disa|ssemble-|
|00000250| 63 6f 6c 75 6d 6e 2d 32 | 2d 69 6e 64 65 6e 74 20 |column-2|-indent |
|00000260| 31 30 20 28 23 24 20 2e | 20 2d 35 36 39 29 29 0a |10 (#$ .| -569)).|
|00000270| 23 40 33 20 2a 1f 0a 28 | 64 65 66 76 61 72 20 64 |#@3 *..(|defvar d|
|00000280| 69 73 61 73 73 65 6d 62 | 6c 65 2d 72 65 63 75 72 |isassemb|le-recur|
|00000290| 73 69 76 65 2d 69 6e 64 | 65 6e 74 20 33 20 28 23 |sive-ind|ent 3 (#|
|000002a0| 24 20 2e 20 2d 36 32 38 | 29 29 0a 23 40 32 37 34 |$ . -628|)).#@274|
|000002b0| 20 50 72 69 6e 74 20 64 | 69 73 61 73 73 65 6d 62 | Print d|isassemb|
|000002c0| 6c 65 64 20 63 6f 64 65 | 20 66 6f 72 20 4f 42 4a |led code| for OBJ|
|000002d0| 45 43 54 20 69 6e 20 28 | 6f 70 74 69 6f 6e 61 6c |ECT in (|optional|
|000002e0| 29 20 42 55 46 46 45 52 | 2e 0a 4f 42 4a 45 43 54 |) BUFFER|..OBJECT|
|000002f0| 20 63 61 6e 20 62 65 20 | 61 20 73 79 6d 62 6f 6c | can be |a symbol|
|00000300| 20 64 65 66 69 6e 65 64 | 20 61 73 20 61 20 66 75 | defined| as a fu|
|00000310| 6e 63 74 69 6f 6e 2c 20 | 6f 72 20 61 20 66 75 6e |nction, |or a fun|
|00000320| 63 74 69 6f 6e 20 69 74 | 73 65 6c 66 0a 28 61 20 |ction it|self.(a |
|00000330| 6c 61 6d 62 64 61 20 65 | 78 70 72 65 73 73 69 6f |lambda e|xpressio|
|00000340| 6e 20 6f 72 20 61 20 63 | 6f 6d 70 69 6c 65 64 2d |n or a c|ompiled-|
|00000350| 66 75 6e 63 74 69 6f 6e | 20 6f 62 6a 65 63 74 29 |function| object)|
|00000360| 2e 0a 49 66 20 4f 42 4a | 45 43 54 20 69 73 20 6e |..If OBJ|ECT is n|
|00000370| 6f 74 20 61 6c 72 65 61 | 64 79 20 63 6f 6d 70 69 |ot alrea|dy compi|
|00000380| 6c 65 64 2c 20 77 65 20 | 63 6f 6d 70 69 6c 65 20 |led, we |compile |
|00000390| 69 74 2c 20 62 75 74 20 | 64 6f 20 6e 6f 74 0a 72 |it, but |do not.r|
|000003a0| 65 64 65 66 69 6e 65 20 | 4f 42 4a 45 43 54 20 69 |edefine |OBJECT i|
|000003b0| 66 20 69 74 20 69 73 20 | 61 20 73 79 6d 62 6f 6c |f it is |a symbol|
|000003c0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 64 69 |...(defa|lias 'di|
|000003d0| 73 61 73 73 65 6d 62 6c | 65 20 23 5b 28 6f 62 6a |sassembl|e #[(obj|
|000003e0| 65 63 74 20 26 6f 70 74 | 69 6f 6e 61 6c 20 62 75 |ect &opt|ional bu|
|000003f0| 66 66 65 72 20 69 6e 64 | 65 6e 74 20 69 6e 74 65 |ffer ind|ent inte|
|00000400| 72 61 63 74 69 76 65 2d | 70 29 20 22 08 a2 c1 3d |ractive-|p) "...=|
|00000410| 83 5c 66 00 c2 c3 08 45 | 10 5c 66 84 12 00 c5 14 |.\f....E|.\f.....|
|00000420| 8a 0e 06 84 1d 00 0e 07 | 84 2e 00 c8 90 c8 71 88 |........|......q.|
|00000430| c9 08 5c 66 0e 06 3f 23 | 91 88 82 38 00 0e 07 71 |..\f..?#|...8...q|
|00000440| 88 c9 08 5c 66 c3 23 88 | 29 c3 87 22 20 5b 6f 62 |...\f.#.|).." [ob|
|00000450| 6a 65 63 74 20 62 79 74 | 65 2d 63 6f 64 65 20 6c |ject byt|e-code l|
|00000460| 61 6d 62 64 61 20 6e 69 | 6c 20 69 6e 64 65 6e 74 |ambda ni|l indent|
|00000470| 20 30 20 69 6e 74 65 72 | 61 63 74 69 76 65 2d 70 | 0 inter|active-p|
|00000480| 20 62 75 66 66 65 72 20 | 22 2a 44 69 73 61 73 73 | buffer |"*Disass|
|00000490| 65 6d 62 6c 65 2a 22 20 | 64 69 73 61 73 73 65 6d |emble*" |disassem|
|000004a0| 62 6c 65 2d 69 6e 74 65 | 72 6e 61 6c 5d 20 35 20 |ble-inte|rnal] 5 |
|000004b0| 28 23 24 20 2e 20 36 38 | 39 29 20 28 6c 69 73 74 |(#$ . 68|9) (list|
|000004c0| 20 28 69 6e 74 65 72 6e | 20 28 63 6f 6d 70 6c 65 | (intern| (comple|
|000004d0| 74 69 6e 67 2d 72 65 61 | 64 20 22 44 69 73 61 73 |ting-rea|d "Disas|
|000004e0| 73 65 6d 62 6c 65 20 66 | 75 6e 63 74 69 6f 6e 3a |semble f|unction:|
|000004f0| 20 22 20 6f 62 61 72 72 | 61 79 20 28 71 75 6f 74 | " obarr|ay (quot|
|00000500| 65 20 66 62 6f 75 6e 64 | 70 29 20 74 29 29 20 6e |e fbound|p) t)) n|
|00000510| 69 6c 20 30 20 74 29 5d | 29 0a 28 64 65 66 61 6c |il 0 t)]|).(defal|
|00000520| 69 61 73 20 27 64 69 73 | 61 73 73 65 6d 62 6c 65 |ias 'dis|assemble|
|00000530| 2d 69 6e 74 65 72 6e 61 | 6c 20 23 5b 28 6f 62 6a |-interna|l #[(obj|
|00000540| 20 69 6e 64 65 6e 74 20 | 69 6e 74 65 72 61 63 74 | indent |interact|
|00000550| 69 76 65 2d 70 29 20 22 | c0 89 89 89 19 1a 1b 1c |ive-p) "|........|
|00000560| 0d 39 83 16 00 0d 13 0d | 4b 89 15 82 09 00 c6 0d |.9......|K.......|
|00000570| 21 83 21 00 c7 c8 0b 5c | 22 88 0d 3c 83 36 00 0d |!.!....\|"..<.6..|
|00000580| 40 c9 3d 83 36 00 ca 0d | 41 40 21 88 0b 4b 15 0d |@.=.6...|A@!..K..|
|00000590| a2 c4 3d 83 42 00 cb 14 | 0d 41 15 0d 3c 83 53 00 |..=.B...|.A..<.S.|
|000005a0| 0d 40 cc 3d 83 53 00 cd | c0 0d 45 15 0d 3c 83 63 |.@.=.S..|..E..<.c|
|000005b0| 00 0d 40 cd 3d 84 63 00 | c7 ce 21 88 0d 3a 83 8d |..@.=.c.|..!..:..|
|000005c0| 00 cc 0d 9e 84 8d 00 0e | 0f 83 80 00 d0 0b 83 7c |........|.......||
|000005d0| 00 d1 82 7d 00 d2 0b 5c | 22 88 d3 0d 21 15 0e 0f |...}...\|"...!...|
|000005e0| 83 8d 00 d0 d4 21 88 0d | 3a 83 9e 00 0d 41 89 15 |.....!..|:....A..|
|000005f0| 40 11 0d 41 15 82 af 00 | d5 0d 21 83 ab 00 0d d6 |@..A....|..!.....|
|00000600| 48 11 82 af 00 c7 d7 21 | 88 0e 18 d6 55 83 e1 00 |H......!|....U...|
|00000610| 0e 18 6a 88 d9 da 5c 66 | 84 c4 00 0b 83 c8 00 db |..j...\f|........|
|00000620| 82 c9 00 dc 5c 66 83 d1 | 00 dd 82 d2 00 dc 0b 83 |....\f..|........|
|00000630| dd 00 d9 de 0b 5c 22 82 | de 00 dc 24 63 88 0d 3a |.....\".|...$c..:|
|00000640| 83 f1 00 0d 40 3b 85 f5 | 00 0d 40 82 f5 00 df 0d |....@;..|..@.....|
|00000650| cb 5c 22 89 1a 83 24 01 | 5c 6e 3b 83 24 01 0d 3a |.\"...$.|\n;.$..:|
|00000660| 83 07 01 0d 41 15 0e 18 | 6a 88 e0 e1 70 5c 22 88 |....A...|j...p\".|
|00000670| e2 e3 5c 6e 5c 22 83 1f | 01 5c 6e d6 89 94 4f e4 |..\n\"..|.\n...O.|
|00000680| 50 12 5c 6e e3 b1 02 88 | 29 0e 18 6a 88 e5 63 88 |P.\n....|)..j..c.|
|00000690| e6 09 70 5c 22 88 e3 63 | 88 0d 3a 83 3f 01 e7 0d |..p\"..c|..:.?...|
|000006a0| 9e 82 4b 01 0d 47 e8 56 | 85 4b 01 e7 0d e8 48 44 |..K..G.V|.K....HD|
|000006b0| 89 1e 27 83 8e 01 0e 27 | 41 40 16 27 0d a2 a2 e7 |..'....'|A@.'....|
|000006c0| 3d 83 62 01 0d 41 15 0e | 18 6a 88 e9 63 88 0e 27 |=.b..A..|.j..c..'|
|000006d0| a2 cc 3d 83 81 01 e3 63 | 88 ea 0e 27 0e 18 0e 2b |..=....c|...'...+|
|000006e0| 5c 5c 5c 22 88 82 8b 01 | cb 1e 2c e6 0e 27 70 5c |\\\"....|..,..'p\|
|000006f0| 22 88 29 e3 63 88 29 0d | 3a 83 a5 01 cc 0d 9e 83 |".).c.).|:.......|
|00000700| a5 01 ea cc 0d 9e 0e 18 | 5c 22 88 82 cc 01 d5 0d |........|\"......|
|00000710| 21 83 b4 01 ea 0d 0e 18 | 5c 22 88 82 cc 01 ed 63 |!.......|\".....c|
|00000720| 88 cb 1e 2c e6 0d 41 83 | c6 01 ee 0d 42 82 c8 01 |...,..A.|....B...|
|00000730| 0d 40 70 5c 22 88 29 2c | 0e 0f 85 d5 01 d0 dc 21 |.@p\".),|.......!|
|00000740| 87 22 20 5b 6e 69 6c 20 | 61 72 67 73 20 64 6f 63 |." [nil |args doc|
|00000750| 20 6e 61 6d 65 20 6d 61 | 63 72 6f 20 6f 62 6a 20 | name ma|cro obj |
|00000760| 73 75 62 72 70 20 65 72 | 72 6f 72 20 22 43 61 6e |subrp er|ror "Can|
|00000770| 27 74 20 64 69 73 61 73 | 73 65 6d 62 6c 65 20 23 |'t disas|semble #|
|00000780| 3c 73 75 62 72 20 25 73 | 3e 22 20 61 75 74 6f 6c |<subr %s|>" autol|
|00000790| 6f 61 64 20 6c 6f 61 64 | 20 74 20 62 79 74 65 2d |oad load| t byte-|
|000007a0| 63 6f 64 65 20 6c 61 6d | 62 64 61 20 22 6e 6f 74 |code lam|bda "not|
|000007b0| 20 61 20 66 75 6e 63 74 | 69 6f 6e 22 20 69 6e 74 | a funct|ion" int|
|000007c0| 65 72 61 63 74 69 76 65 | 2d 70 20 6d 65 73 73 61 |eractive|-p messa|
|000007d0| 67 65 20 22 43 6f 6d 70 | 69 6c 69 6e 67 20 25 73 |ge "Comp|iling %s|
|000007e0| 27 73 20 64 65 66 69 6e | 69 74 69 6f 6e 2e 2e 2e |'s defin|ition...|
|000007f0| 22 20 22 43 6f 6d 70 69 | 6c 69 6e 67 20 64 65 66 |" "Compi|ling def|
|00000800| 69 6e 69 74 69 6f 6e 2e | 2e 2e 22 20 62 79 74 65 |inition.|.." byte|
|00000810| 2d 63 6f 6d 70 69 6c 65 | 20 22 44 6f 6e 65 20 63 |-compile| "Done c|
|00000820| 6f 6d 70 69 6c 69 6e 67 | 2e 20 20 44 69 73 61 73 |ompiling|.  Disas|
|00000830| 73 65 6d 62 6c 69 6e 67 | 2e 2e 2e 22 20 62 79 74 |sembling|..." byt|
|00000840| 65 2d 63 6f 64 65 2d 66 | 75 6e 63 74 69 6f 6e 2d |e-code-f|unction-|
|00000850| 70 20 30 20 22 43 6f 6d | 70 69 6c 61 74 69 6f 6e |p 0 "Com|pilation|
|00000860| 20 66 61 69 6c 65 64 22 | 20 69 6e 64 65 6e 74 20 | failed"| indent |
|00000870| 66 6f 72 6d 61 74 20 22 | 62 79 74 65 20 63 6f 64 |format "|byte cod|
|00000880| 65 25 73 25 73 25 73 3a | 5c 6e 22 20 22 20 66 6f |e%s%s%s:|\n" " fo|
|00000890| 72 22 20 22 22 20 22 20 | 6d 61 63 72 6f 22 20 22 |r" "" " |macro" "|
|000008a0| 20 25 73 22 20 64 6f 63 | 75 6d 65 6e 74 61 74 69 | %s" doc|umentati|
|000008b0| 6f 6e 20 70 72 69 6e 63 | 20 22 20 20 64 6f 63 3a |on princ| "  doc:|
|000008c0| 20 20 22 20 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |  " stri|ng-match|
|000008d0| 20 22 5c 6e 22 20 22 20 | 2e 2e 2e 22 20 22 20 20 | "\n" " |..." "  |
|000008e0| 61 72 67 73 3a 20 22 20 | 70 72 69 6e 31 20 69 6e |args: " |prin1 in|
|000008f0| 74 65 72 61 63 74 69 76 | 65 20 35 20 22 20 69 6e |teractiv|e 5 " in|
|00000900| 74 65 72 61 63 74 69 76 | 65 3a 20 22 20 64 69 73 |teractiv|e: " dis|
|00000910| 61 73 73 65 6d 62 6c 65 | 2d 31 20 64 69 73 61 73 |assemble|-1 disas|
|00000920| 73 65 6d 62 6c 65 2d 72 | 65 63 75 72 73 69 76 65 |semble-r|ecursive|
|00000930| 2d 69 6e 64 65 6e 74 20 | 70 72 69 6e 74 2d 65 73 |-indent |print-es|
|00000940| 63 61 70 65 2d 6e 65 77 | 6c 69 6e 65 73 20 22 55 |cape-new|lines "U|
|00000950| 6e 63 6f 6d 70 69 6c 65 | 64 20 62 6f 64 79 3a 20 |ncompile|d body: |
|00000960| 20 22 20 70 72 6f 67 6e | 5d 20 38 5d 29 0a 23 40 | " progn|] 8]).#@|
|00000970| 31 32 30 20 50 72 69 6e | 74 73 20 74 68 65 20 62 |120 Prin|ts the b|
|00000980| 79 74 65 2d 63 6f 64 65 | 20 63 61 6c 6c 20 4f 42 |yte-code| call OB|
|00000990| 4a 20 69 6e 20 74 68 65 | 20 63 75 72 72 65 6e 74 |J in the| current|
|000009a0| 20 62 75 66 66 65 72 2e | 0a 4f 42 4a 20 73 68 6f | buffer.|.OBJ sho|
|000009b0| 75 6c 64 20 62 65 20 61 | 20 63 61 6c 6c 20 74 6f |uld be a| call to|
|000009c0| 20 42 59 54 45 2d 43 4f | 44 45 20 67 65 6e 65 72 | BYTE-CO|DE gener|
|000009d0| 61 74 65 64 20 62 79 20 | 74 68 65 20 62 79 74 65 |ated by |the byte|
|000009e0| 20 63 6f 6d 70 69 6c 65 | 72 2e 1f 0a 28 64 65 66 | compile|r...(def|
|000009f0| 61 6c 69 61 73 20 27 64 | 69 73 61 73 73 65 6d 62 |alias 'd|isassemb|
|00000a00| 6c 65 2d 31 20 23 5b 28 | 6f 62 6a 20 69 6e 64 65 |le-1 #[(|obj inde|
|00000a10| 6e 74 29 20 22 c0 89 19 | 1a 0b 3a 83 15 00 0b 41 |nt) "...|..:....A|
|00000a20| 40 12 0b 41 41 40 11 82 | 21 00 c4 0b 21 88 0b c5 |@..AA@..|!...!...|
|00000a30| 48 12 0b c6 48 11 c7 5c | 6e 09 5c 22 c0 89 89 89 |H...H..\|n.\"....|
|00000a40| 1e 08 1e 09 1e 5c 6e 1e | 0b 1e 5c 66 cd c0 0e 5c |.....\n.|..\f...\|
|00000a50| 66 1e 5c 66 1e 0e 1e 0f | d0 0e 5c 66 9e 89 16 0e |f.\f....|..\f....|
|00000a60| 83 5d 00 0e 0e 41 0e 0f | 54 89 16 0f a0 88 0e 0e |.]...A..|T.......|
|00000a70| 0e 5c 66 3e 41 16 5c 66 | 82 3d 00 2b 0e 5c 66 83 |.\f>A.\f|.=.+.\f.|
|00000a80| da 01 c0 16 08 0e 5c 66 | 40 a7 83 77 00 0e 5c 66 |......\f|@..w..\f|
|00000a90| 40 16 08 0e 5c 66 41 16 | 5c 66 0e 5c 66 40 40 16 |@...\fA.|\f.\f@@.|
|00000aa0| 0b 0e 5c 66 40 41 16 5c | 6e 0e 5c 66 41 16 5c 66 |..\f@A.\|n.\fA.\f|
|00000ab0| 0e 11 6a 88 0e 0b d0 3d | 83 a9 00 0e 08 83 9f 00 |..j....=|........|
|00000ac0| d2 d3 0e 08 5c 22 63 88 | d4 0e 5c 6e 40 21 63 88 |....\"c.|..\n@!c.|
|00000ad0| 82 5e 00 0e 08 83 b5 00 | d2 d5 0e 08 5c 22 63 88 |.^......|....\"c.|
|00000ae0| 0e 11 0e 16 5c 5c 6a 88 | 0e 0b 83 d8 00 d7 d8 d9 |....\\j.|........|
|00000af0| 0e 0b 21 89 16 09 5c 22 | 83 d8 00 0e 09 da c0 4f |..!...\"|.......O|
|00000b00| 16 09 82 db 00 db 16 09 | 0e 0b dc 3d 83 e5 00 dd |........|...=....|
|00000b10| 63 88 0e 09 63 88 0e 11 | 0e 16 5c 5c 0e 1e 5c 5c |c...c...|..\\..\\|
|00000b20| df 5c 5c 6a 88 e0 63 88 | 0e 0b 0e 21 3e 83 0b 01 |.\\j..c.|...!>...|
|00000b30| d4 0e 5c 6e 41 40 21 63 | 88 82 d4 01 0e 0b e2 3e |..\nA@!c|.......>|
|00000b40| 83 1b 01 d4 0e 5c 6e 21 | 63 88 82 d4 01 0e 0b e3 |.....\n!|c.......|
|00000b50| 3e 83 2c 01 e4 0e 5c 6e | 40 70 5c 22 88 82 d4 01 |>.,...\n|@p\"....|
|00000b60| 0e 0b e5 3e 83 d4 01 0e | 5c 6e 40 16 5c 6e e6 0e |...>....|\n@.\n..|
|00000b70| 5c 6e 21 84 6f 01 0e 5c | 6e a2 e7 3d 83 4e 01 e8 |\n!.o..\|n..=.N..|
|00000b80| 0e 5c 6e 9e 84 6f 01 0e | 5c 6e a2 e9 3d 83 9d 01 |.\n..o..|\n..=...|
|00000b90| e6 0e 5c 6e 41 21 84 6f | 01 0e 5c 6e 41 a2 e7 3d |..\nA!.o|..\nA..=|
|00000ba0| 83 9d 01 e8 0e 5c 6e 41 | 9e 83 9d 01 e6 0e 5c 6e |.....\nA|......\n|
|00000bb0| 21 83 7c 01 ea 63 88 82 | 8d 01 0e 5c 6e a2 e7 3d |!.|..c..|...\n..=|
|00000bc0| 83 8a 01 eb 63 88 82 8d | 01 ec 63 88 ed 0e 5c 6e |....c...|..c...\n|
|00000bd0| 0e 11 0e 2e 5c 5c c5 5c | 5c c0 23 88 82 d4 01 0e |....\\.\|\.#.....|
|00000be0| 5c 6e a2 e8 3d 83 b5 01 | ef 63 88 f0 0e 5c 6e 0e |\n..=...|.c...\n.|
|00000bf0| 11 0e 2e 5c 5c 5c 22 88 | 82 d4 01 0e 5c 6e a2 a2 |...\\\".|....\n..|
|00000c00| e8 3d 83 ca 01 f1 63 88 | f2 f3 0e 5c 6e 5c 22 88 |.=....c.|...\n\".|
|00000c10| 82 d4 01 f4 1e 35 e4 0e | 5c 6e 70 5c 22 88 29 f6 |.....5..|\np\".).|
|00000c20| 63 88 82 5e 00 2e 07 c0 | 87 22 20 5b 6e 69 6c 20 |c..^....|." [nil |
|00000c30| 63 6f 6e 73 74 76 65 63 | 20 62 79 74 65 73 20 6f |constvec| bytes o|
|00000c40| 62 6a 20 66 65 74 63 68 | 2d 62 79 74 65 63 6f 64 |bj fetch|-bytecod|
|00000c50| 65 20 31 20 32 20 62 79 | 74 65 2d 64 65 63 6f 6d |e 1 2 by|te-decom|
|00000c60| 70 69 6c 65 2d 62 79 74 | 65 63 6f 64 65 20 70 63 |pile-byt|ecode pc|
|00000c70| 2d 76 61 6c 75 65 20 6f | 70 6e 61 6d 65 20 61 72 |-value o|pname ar|
|00000c80| 67 20 6f 70 20 6c 61 70 | 20 30 20 74 6d 70 20 74 |g op lap| 0 tmp t|
|00000c90| 61 67 6e 6f 20 54 41 47 | 20 69 6e 64 65 6e 74 20 |agno TAG| indent |
|00000ca0| 66 6f 72 6d 61 74 20 22 | 25 64 3a 22 20 69 6e 74 |format "|%d:" int|
|00000cb0| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 22 25 64 22 20 |-to-stri|ng "%d" |
|00000cc0| 64 69 73 61 73 73 65 6d | 62 6c 65 2d 63 6f 6c 75 |disassem|ble-colu|
|00000cd0| 6d 6e 2d 31 2d 69 6e 64 | 65 6e 74 20 73 74 72 69 |mn-1-ind|ent stri|
|00000ce0| 6e 67 2d 6d 61 74 63 68 | 20 22 5e 62 79 74 65 2d |ng-match| "^byte-|
|00000cf0| 22 20 73 79 6d 62 6f 6c | 2d 6e 61 6d 65 20 35 20 |" symbol|-name 5 |
|00000d00| 22 3c 6e 6f 74 2d 61 6e | 2d 6f 70 63 6f 64 65 3e |"<not-an|-opcode>|
|00000d10| 22 20 62 79 74 65 2d 63 | 6f 6e 73 74 61 6e 74 32 |" byte-c|onstant2|
|00000d20| 20 22 20 23 23 23 23 20 | 73 68 6f 75 6c 64 6e 27 | " #### |shouldn'|
|00000d30| 74 20 68 61 76 65 20 73 | 65 65 6e 20 63 6f 6e 73 |t have s|een cons|
|00000d40| 74 61 6e 74 32 20 68 65 | 72 65 21 5c 6e 20 20 22 |tant2 he|re!\n  "|
|00000d50| 20 64 69 73 61 73 73 65 | 6d 62 6c 65 2d 63 6f 6c | disasse|mble-col|
|00000d60| 75 6d 6e 2d 32 2d 69 6e | 64 65 6e 74 20 2d 31 20 |umn-2-in|dent -1 |
|00000d70| 22 20 22 20 62 79 74 65 | 2d 67 6f 74 6f 2d 6f 70 |" " byte|-goto-op|
|00000d80| 73 20 28 62 79 74 65 2d | 63 61 6c 6c 20 62 79 74 |s (byte-|call byt|
|00000d90| 65 2d 75 6e 62 69 6e 64 | 20 62 79 74 65 2d 6c 69 |e-unbind| byte-li|
|00000da0| 73 74 4e 20 62 79 74 65 | 2d 63 6f 6e 63 61 74 4e |stN byte|-concatN|
|00000db0| 20 62 79 74 65 2d 69 6e | 73 65 72 74 4e 29 20 28 | byte-in|sertN) (|
|00000dc0| 62 79 74 65 2d 76 61 72 | 72 65 66 20 62 79 74 65 |byte-var|ref byte|
|00000dd0| 2d 76 61 72 73 65 74 20 | 62 79 74 65 2d 76 61 72 |-varset |byte-var|
|00000de0| 62 69 6e 64 29 20 70 72 | 69 6e 31 20 28 62 79 74 |bind) pr|in1 (byt|
|00000df0| 65 2d 63 6f 6e 73 74 61 | 6e 74 20 62 79 74 65 2d |e-consta|nt byte-|
|00000e00| 63 6f 6e 73 74 61 6e 74 | 32 29 20 62 79 74 65 2d |constant|2) byte-|
|00000e10| 63 6f 64 65 2d 66 75 6e | 63 74 69 6f 6e 2d 70 20 |code-fun|ction-p |
|00000e20| 6c 61 6d 62 64 61 20 62 | 79 74 65 2d 63 6f 64 65 |lambda b|yte-code|
|00000e30| 20 6d 61 63 72 6f 20 22 | 3c 63 6f 6d 70 69 6c 65 | macro "|<compile|
|00000e40| 64 2d 66 75 6e 63 74 69 | 6f 6e 3e 5c 6e 22 20 22 |d-functi|on>\n" "|
|00000e50| 3c 63 6f 6d 70 69 6c 65 | 64 20 6c 61 6d 62 64 61 |<compile|d lambda|
|00000e60| 3e 22 20 22 3c 63 6f 6d | 70 69 6c 65 64 20 6d 61 |>" "<com|piled ma|
|00000e70| 63 72 6f 3e 5c 6e 22 20 | 64 69 73 61 73 73 65 6d |cro>\n" |disassem|
|00000e80| 62 6c 65 2d 69 6e 74 65 | 72 6e 61 6c 20 64 69 73 |ble-inte|rnal dis|
|00000e90| 61 73 73 65 6d 62 6c 65 | 2d 72 65 63 75 72 73 69 |assemble|-recursi|
|00000ea0| 76 65 2d 69 6e 64 65 6e | 74 20 22 3c 62 79 74 65 |ve-inden|t "<byte|
|00000eb0| 20 63 6f 64 65 3e 5c 6e | 22 20 64 69 73 61 73 73 | code>\n|" disass|
|00000ec0| 65 6d 62 6c 65 2d 31 20 | 22 28 3c 62 79 74 65 20 |emble-1 |"(<byte |
|00000ed0| 63 6f 64 65 3e 2e 2e 2e | 29 5c 6e 22 20 6d 61 70 |code>...|)\n" map|
|00000ee0| 63 61 72 20 23 5b 28 6f | 62 6a 29 20 22 c0 09 5c |car #[(o|bj) "..\|
|00000ef0| 6e 0b 5c 5c 5c 22 87 22 | 20 5b 64 69 73 61 73 73 |n.\\\"."| [disass|
|00000f00| 65 6d 62 6c 65 2d 31 20 | 6f 62 6a 20 69 6e 64 65 |emble-1 |obj inde|
|00000f10| 6e 74 20 64 69 73 61 73 | 73 65 6d 62 6c 65 2d 72 |nt disas|semble-r|
|00000f20| 65 63 75 72 73 69 76 65 | 2d 69 6e 64 65 6e 74 5d |ecursive|-indent]|
|00000f30| 20 34 5d 20 74 20 70 72 | 69 6e 74 2d 65 73 63 61 | 4] t pr|int-esca|
|00000f40| 70 65 2d 6e 65 77 6c 69 | 6e 65 73 20 22 5c 6e 22 |pe-newli|nes "\n"|
|00000f50| 5d 20 35 20 28 23 24 20 | 2e 20 32 34 32 30 29 5d |] 5 (#$ |. 2420)]|
|00000f60| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+